home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club KidSoft Volume 3 #1
/
ClubKidsoft.iso
/
movies
/
clubart.dir
/
00031_Script_Begin Culb Art
< prev
next >
Wrap
Text File
|
1995-02-01
|
2KB
|
69 lines
-- Begin Club Art
--Turn off button sprites
on enterFrame
global gArtPlayOffStart
global gArtPlayOffEnd
global gSpriteReturnOver
global gSpriteReturnDown
global gSpritePlayOver
global gSpritePalyDown
global gSpriteNextOff
global gSpriteNextOver
global gSpriteNextDown
global gSpritePrevOff
global gSpritePrevOver
global gSpritePrevDown
global gSpriteThumb
global gArtFrame
global gArtFrameBarStep
global gArtFrameBarH
global gArtFrameBarV
global gArtNumFrames
global gArtFirstFrame
set gArtFirstFrame = marker(1)
-- set them here to make sure. some are reused
set gSpriteThumb = 22
set gArtPlayOffStart = 24
set gArtPlayOffEnd = gArtPlayOffStart +9
set gSpriteReturnOver = gArtPlayOffStart
set gSpriteReturnDown = gArtPlayOffStart +1
set gSpritePrevOff= gArtPlayOffStart + 2
set gSpritePrevOver= gArtPlayOffStart + 3
set gSpritePrevDown= gArtPlayOffStart + 4
set gSpriteNextOff= gArtPlayOffStart + 5
set gSpriteNextOver= gArtPlayOffStart + 6
set gSpriteNextDown= gArtPlayOffStart + 7
set gSpritePlayOver= gArtPlayOffStart +8
set gSpritePalyDown= gArtPlayOffStart +9
set gCurrentButton = 0
set gArtPlay to FALSE
-- put "84 gArtPlay " &gArtPlay
global gArtSprite1
global gArtSprite2
global gArtSprite3
global gArtPositionSprite1
global gArtPositionSprite2
global gArtPositionSprite3
set the puppet of sprite gArtSprite1 to TRUE
set the puppet of sprite gArtSprite2 to TRUE
set the puppet of sprite gArtSprite3 to TRUE
-- set the moveableSprite of sprite gArtSprite1 to TRUE
-- set the moveableSprite of sprite gArtSprite2 to TRUE
-- set the moveableSprite of sprite gArtSprite3 to TRUE
clubArtButtonsOff
--setup the frame counter
set gArtFrameBarV to the top of sprite 5
set gArtFrameBarH to the left of sprite 5
set gArtFrameBarStep to (the width of sprite 5 / gArtNumFrames )
end